home *** CD-ROM | disk | FTP | other *** search
/ One Click 11 / OneClick11.iso / Modelos / Lab Dengue / DengueAcumulado.mdb / Programs.json < prev   
Encoding:
JavaScript Object Notation  |  2004-05-04  |  5.7 KB
  1. {
  2.     "schema": {
  3.         "Name": "Text (50)",
  4.         "Content": "Memo/Hyperlink (255)",
  5.         "Comment": "Memo/Hyperlink (255)",
  6.         "DateCreated": "DateTime",
  7.         "DateModified": "DateTime",
  8.         "Author": "Text (50)"
  9.     },
  10.     "data": [
  11.         {
  12.             "Name": "EPI6",
  13.             "Content": "READ 'c:\\LabDengue\\DengueAcumulado.mdb':Dengue\r\nWRITE REPLACE \"Epi6\" 'C:\\LabDengue\\LabDen.rec' * \r\nDIALOG \"Foi gerado o arquivo LabDen.rec na pasta c:\\LabDengue\"\r\nQUIT\r\n",
  14.             "DateCreated": "02/24/03 00:00:00",
  15.             "DateModified": "02/24/03 00:00:00"
  16.         },
  17.         {
  18.             "Name": "LISTAGEM",
  19.             "Content": "READ 'C:\\LabDengue\\DengueAcumulado.mdb':Dengue\r\n\r\nSORT NOME_PAC\r\nDEFINE ELISA\r\nASSIGN ELISA=\"NAO REALIZ\"\r\n\r\nIF ELISA_1=\"INCONCLUSIVO\" OR ELISA_2=\"INCONCLUSIVO\" THEN\r\nELISA=\"INCONCLUSIVO\"\r\nEND\r\n\r\nIF ELISA_1=\"NEGATIVO\" OR ELISA_2=\"NEGATIVO\" THEN\r\nELISA=\"NEGATIVO\"\r\nEND\r\n\r\nIF ELISA_1=\"POSITIVO\" OR ELISA_2=\"POSITIVO\" THEN\r\nELISA=\"POSITIVO\"\r\nEND\r\n\r\nDEFINE ELISAX\r\nDIALOG \"ESCOLHA O TIPO DE RESULTADO PARA PROCESSAR\" ELISAX \"NAO REALIZ\",\"INCONCLUSIVO\", \"NEGATIVO\", \"POSITIVO\" TITLETEXT=\"ESCOLHER TIPO DE SOROLOGIA\"\r\nSELECT ELISA=ELISAX\r\n\r\nDEFINE MUNICIPIOX\r\nDIALOG \"ESCOLHA O MUNICIPIO DE COLETA\" MUNICIPIOX DBVALUES Dengue MUNIC TITLETEXT=\"MUNICIPIO DE COLETA\"\r\nSELECT MUNIC=MUNICIPIOX\r\n\r\n\r\nDEFINE DTINICIOX\r\nDEFINE DTINICIO\r\nDEFINE DTFIMX\r\nDEFINE DTFIM\r\n\r\nDIALOG \"ESCOLHA A DATA DO INIC├ìO DO PER├ìODO\" DTINICIOX DBVALUES Dengue DTCOL1 TITLETEXT=\"SELE├ç├âO DO PER├ìODO PARA PROCESSAMENTO\"\r\n\r\nDIALOG \"ESCOLHA A DATA DO FIM DO PER├ìODO\" DTFIMX  DBVALUES Dengue DTCOL1 TITLETEXT=\"SELE├ç├âO DO PER├ìODO PARA PROCESSAMENTO\"\r\n\r\nDTINICIO=TXTTODATE(DTINICIOX)\r\nDTFIM=TXTTODATE(DTFIMX)\r\n\r\nSELECT DTCOL1 >= DTINICIO\r\nSELECT DTCOL1 <= DTFIM\r\n\r\nROUTEOUT 'C:\\LabDengue\\Lista1.htm' REPLACE\r\nLIST SINAN MUNIC NOME_PAC DTCOL1  ELISA_1 ELISA_2 \r\n\r\n\r\n\r\n\r\n",
  20.             "DateCreated": "02/24/03 00:00:00",
  21.             "DateModified": "02/24/03 00:00:00"
  22.         },
  23.         {
  24.             "Name": "LISTAGEMG",
  25.             "Content": "READ 'C:\\LabDengue\\DengueAcumulado.mdb':Dengue\r\n\r\nSORT NOME_PAC\r\n\r\nROUTEOUT 'C:\\LabDengue\\Lista2.htm' REPLACE\r\nLIST SINAN MUNIC NOME_PAC DTCOL1  ELISA_1 ELISA_2 \r\n\r\n\r\n\r\n\r\n",
  26.             "DateCreated": "02/24/03 00:00:00",
  27.             "DateModified": "02/24/03 00:00:00"
  28.         },
  29.         {
  30.             "Name": "RECEBER",
  31.             "Content": "READ \"dBASE III\" 'C:\\LabDengue\\Recebe\\traF_dir.DBF'\r\n\r\nDEFINE DTCOL1\r\n\r\nIF YEAR(DT_COL_1)= 1902 THEN\r\nDTCOL1 = DT_COL_1 + 36525\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 1903 THEN\r\nDTCOL1 = DT_COL_1 + 36525\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 1904 THEN\r\nDTCOL1 = DT_COL_1 + 36525\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 2002 THEN\r\nDTCOL1 = DT_COL_1\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 2003 THEN\r\nDTCOL1 = DT_COL_1 \r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 2004 THEN\r\nDTCOL1 = DT_COL_1 \r\nEND\r\n\r\n\r\nWRITE REPLACE \"Epi 2000\" 'C:\\LabDengue\\DengueAcumulado.mdb':traF_dir * \r\n\r\nREAD 'C:\\LabDengue\\DengueAcumulado.mdb':Dengue\r\n\r\nMERGE traF_dir NUMERO  :: NUMERO AND SINAN :: SINAN\r\n\r\nWRITE REPLACE \"Epi 2000\" 'C:\\LabDengue\\DengueAcumulado.mdb':Dengue * \r\nQUIT\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n",
  32.             "DateCreated": "02/24/03 00:00:00",
  33.             "DateModified": "02/24/03 00:00:00"
  34.         },
  35.         {
  36.             "Name": "RECEBER1A",
  37.             "Content": "READ \"dBASE III\" 'C:\\LabDengue\\Recebe\\traF_dir.DBF'\r\n\r\nDEFINE DTCOL1\r\n\r\nIF YEAR(DT_COL_1)= 1902 THEN\r\nDTCOL1 = DT_COL_1 + 36525\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 1903 THEN\r\nDTCOL1 = DT_COL_1 + 36525\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 1904 THEN\r\nDTCOL1 = DT_COL_1 + 36525\r\nEND\r\n\r\n\r\nIF YEAR(DT_COL_1)= 2002 THEN\r\nDTCOL1 = DT_COL_1\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 2003 THEN\r\nDTCOL1 = DT_COL_1\r\nEND\r\n\r\nIF YEAR(DT_COL_1)= 2004 THEN\r\nDTCOL1 = DT_COL_1\r\nEND\r\n\r\nWRITE REPLACE \"Epi 2000\" 'C:\\LabDengue\\DengueAcumulado.mdb':Dengue * \r\nQUIT\r\n\r\n\r\n",
  38.             "DateCreated": "02/24/03 00:00:00",
  39.             "DateModified": "02/24/03 00:00:00"
  40.         },
  41.         {
  42.             "Name": "VPP",
  43.             "Content": "READ 'C:\\LabDengue\\DengueAcumulado.mdb':Dengue\r\n\r\nDEFINE DTINICIOX\r\nDEFINE DTINICIO\r\nDEFINE DTFIMX\r\nDEFINE DTFIM\r\n\r\nDIALOG \"ESCOLHA A DATA DO INIC├ìO DO PER├ìODO\" DTINICIOX DBVALUES Dengue DTCOL1 TITLETEXT=\"SELE├ç├âO DO PER├ìODO PARA PROCESSAMENTO\"\r\n\r\nDIALOG \"ESCOLHA A DATA DO FIM DO PER├ìODO\" DTFIMX  DBVALUES Dengue DTCOL1 TITLETEXT=\"SELE├ç├âO DO PER├ìODO PARA PROCESSAMENTO\"\r\n\r\nDTINICIO=TXTTODATE(DTINICIOX)\r\nDTFIM=TXTTODATE(DTFIMX)\r\n\r\nSELECT DTCOL1 >= DTINICIO\r\nSELECT DTCOL1 <= DTFIM\r\n\r\nDEFINE SOROPOS\r\nDEFINE SORORESULT\r\n\r\nIF ELISA_1=\"POSITIVO\" OR ELISA_2=\"POSITIVO\" THEN\r\n    SOROPOS=1\r\nEND\r\n\r\nIF ELISA_1=\"POSITIVO\" OR ELISA_2=\"POSITIVO\" OR ELISA_1=\"NEGATIVO\" OR ELISA_2=\"NEGATIVO\" THEN\r\n    SORORESULT=1\r\nEND\r\n\r\nSELECT SOROPOS = 1  OR SORORESULT=1\r\n\r\nFREQ  SOROPOS STRATAVAR = MUNIC OUTTABLE = SOROPOS\r\nFREQ  SORORESULT STRATAVAR = MUNIC OUTTABLE = SORORESULT\r\n\r\n\r\nREAD 'C:\\LabDengue\\DengueAcumulado.mdb':SORORESULT\r\nRELATE SOROPOS MUNIC :: MUNIC\r\nDEFINE VPP\r\nASSIGN VPP= (COUNT1 / COUNT)*100\r\n\r\nWRITE REPLACE \"Epi 2000\" 'C:\\LabDengue\\DengueAcumulado.mdb':VPP MUNIC SOROPOS COUNT COUNT1 VPP \r\n\r\nREAD 'C:\\LabDengue\\DengueAcumulado.mdb':VPP\r\n\r\nSELECT SOROPOS > 0\r\n\r\nDEFINE POSITIVO\r\nDEFINE COM_RESULT\r\nASSIGN POSITIVO=COUNT1\r\nASSIGN COM_RESULT=COUNT\r\n\r\nROUTEOUT 'C:\\LabDengue\\VPP.htm' REPLACE\r\n\r\n\r\nHEADER 2 \"CENTRO DE VIGIL├éNCIA EPIDEMIOL├ôGICA - INDICADOR DE AVALIA├ç├âO DO PROGRAMA DE CONTROLE DA DENGUE\" textfont black                                                                                                  \r\n\r\n\r\nHEADER 4 \"TAXA DE POSITIVIDADE DA NOTIFICA├ç├âO DE CASOS DE DENGUE POR MUNIC├ìPIO NOTIFICANTE\" (BOLD)\r\n\r\nLIST MUNIC POSITIVO COM_RESULT VPP\r\n\r\nDIALOG \"Para voltar ao MENU clique em SAIR / EXIT\"  TITLETEXT=\"SAIR\"\r\n\r\n\r\n\r\n\r\n",
  44.             "DateCreated": "02/24/03 00:00:00",
  45.             "DateModified": "02/24/03 00:00:00"
  46.         }
  47.     ]
  48. }